﻿Imports SV_Global

Partial Class Sistema_Usuarios_Cadastro
    Inherits System.Web.UI.Page

    ''' <summary>
    ''' Carrega Cursos
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Protected Sub CmbCurso_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbCurso.Load
        Dim DataSet = SQL.StoredProcedures.retornaDataSet("SV_CursosListar")
        For Each Row As Object In DataSet.Tables(0).Rows
            CmbCurso.Items.Add(New ListItem(Row("Curso"), Row("CursoID")))
        Next
    End Sub

End Class
